home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Telecommunications / Term Programs / Emacs Folder / ePrc.asm < prev    next >
Encoding:
Assembly Source File  |  1987-05-27  |  2.1 KB  |  80 lines  |  [TEXT/Earl]
  1. ;    Example of how to write a Printer command resource to be
  2. ;    used with microemacs 3.8M with the "User Special" Line
  3. ;    terminator option.  The user special routine actually gets
  4. ;    considerable freedom, since it takes care of all output of
  5. ;    text to the printer.
  6. ;
  7. ;    On entry:
  8. ;        a0 -> io Parameter block, set up with proper device
  9. ;            reference number for chosen serial driver
  10. ;            the ioMisc field of this parameter block
  11. ;            contains a pointer to a longword, which is 
  12. ;            an application global, unused for any other 
  13. ;            purpose
  14. ;        d0 contains an opcode, one of four below
  15. ;
  16. ;    On exit:
  17. ;        restore all but perhaps a0, a1, d0, and d1
  18. ;
  19.     INITIALIZE    equ 0
  20.     DOLINE        equ 1
  21.     ENDPAGE        equ 2
  22.     BEGINPAGE    equ 3
  23.     localvars    equ -8
  24.     iopb        equ -4
  25.     myopcode    equ -8
  26. ;
  27. ;    A copy of the C calling routine follows...
  28. ;
  29. ;int userprint(pb,myopcode,ePrc)
  30. ;ParmBlkPtr pb;
  31. ;int    myopcode;
  32. ;ProcPtr    ePrc;
  33. ;{
  34. ;    asm{
  35. ;        move.l    pb(a6),a0
  36. ;        move.w    myopcode(a6),d0
  37. ;        move.l    ePrc(a6),a1
  38. ;        jsr        (a1)
  39. ;    }
  40. ;}
  41. ;            
  42. Include     mds:library:newlib.d    ; Use System and ToolBox traps
  43.  
  44.     RESOURCE    'ePrc' 777 'emacs PrintHandler' 24
  45. ;    Resource ID 777, locked
  46. entry:
  47.     link    a6,#localvars        ;get a stack frame
  48.     move.l    a0,iopb(a6)        ;save parameter block address
  49.     move.w    d0,myopcode(a6)        ;save opcode, just in case
  50.     cmp.w    #INITIALIZE,d0        ;test for printer init
  51.     beq    done            ;the Tandy requires nothing special
  52.     cmp.w    #DOLINE,d0        ;test for print a line
  53.     beq    printline        ;yes, do it
  54.     cmp.w    #ENDPAGE,d0        ;test for end of page
  55.     beq    header            ;yes, do it
  56.     cmp.w    #BEGINPAGE,d0        ;test for head of page
  57.     beq    footer            ;do a footer
  58. done:                    ;default, just quit
  59.     unlk    a6            ;unlink our stack frame
  60.     rts                ;get out
  61. printline:
  62.     _write                ;do the write
  63.     move.l    iopb(a6),a0        ;fetch parameter block again
  64.     lea    endline,a1        ;get endline string
  65.     move.l    a1,ioBuffer(a0)        ;put it in parameter block
  66.     move.l    #1,ioReqCount(a0)    ;one character
  67.     _write                ;put it out
  68.     bra.s    done            ;exit
  69. header:                    ;same thing on my printer!
  70. footer:
  71.     lea    endline,a1        ;get endline string
  72.     move.l    a1,ioBuffer(a0)        ;put it in parameter block
  73.     move.l    #5,ioReqCount(a0)    ;five characters
  74.     _write                ;put it out
  75.     bra.s    done            ;exit
  76. endline:
  77.     dc.b    13,13,13,13,13        ;just a bunch of carriage returns
  78.  
  79.  
  80.